home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_13_(11-1984).d64 / copy dos (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  49 lines
  1. 10 PRINT "[147]     THIS PROGRAM WILL COPY THE DOS 5.1"
  2. 12 PRINT "AND C-64 WEDGE FILES FROM THE SYSTEM"
  3. 14 PRINT "DISK THAT COMES WITH THE VIC-1541 DISK"
  4. 16 PRINT "DRIVE TO ANOTHER DISK USING ONLY ONE"
  5. 17 PRINT "DRIVE FOR THE COPY."
  6. 18 PRINT "     THE FILES WILL BE READ INTO MEMORY"
  7. 20 PRINT "FROM THE SYSTEM DISK AND THEN YOU WILL"
  8. 22 PRINT "BE PROMPTED TO INSERT YOUR NEW DISK."
  9. 24 PRINT "THE FILES WILL THEN BE WRITTEN BACK OUT."
  10. 26 PRINT TAB(13) "BY DAVE GRUHN"
  11. 28 CLOSE 15: REM - HALT ALL DISK WORK
  12. 30 DIM PG(1000,1)
  13. 32 PRINT:PRINT:PRINT "INSERT THE SYSTEM DISK, THEN HIT ENTER."
  14. 34 GET A$:IF A$="" THEN 34
  15. 100 I=0
  16. 110 P=0:NA$="C-64 WEDGE":GOSUB 300:K1=I
  17. 120 P=1:NA$="DOS 5.1"   :GOSUB 300:K2=I
  18. 130 FOR K=1 TO 12:GET A$:NEXT K:REM - DEBOUNCE
  19. 140 PRINT:PRINT "REMOVE SYSTEM DISK AND INSERT NEW DISK.":PRINT "HIT ENTER WHEN READY"
  20. 150 GET A$:IF A$="" THEN 150
  21. 160 P=0:I=K1:NA$="C-64 WEDGE":GOSUB 400
  22. 170 P=1:I=K2:NA$="DOS 5.1"   :GOSUB 400
  23. 180 END
  24. 200 REM - CHECK FILE FOR GOOD OPEN
  25. 210 INPUT# 15,A$,B$,C$,D$
  26. 220 IF VAL(A$)=0 THEN RETURN
  27. 230 PRINT A$,B$,C$,D$:CLOSE 5:CLOSE 15:STOP
  28. 300 REM - READ FILE NA$ INTO PG(--,P)
  29. 310 OPEN 15,8,15
  30. 320 OPEN 5,8,5,"0:"+NA$+",P,R"
  31. 330 GOSUB 200:I=0
  32. 340 GET# 5,A$
  33. 350 PG(I,P)=ASC(A$+CHR$(0))
  34. 360 I=I+1
  35. 370 IF ST=0 THEN 340
  36. 380 PRINT:PRINT "FILE= ";NA$,"ST=";ST,"BYTES=";I:CLOSE 5:CLOSE 15
  37. 390 RETURN
  38. 400 REM - WRITE FILE NA$ FROM PG(--,P)
  39. 410 OPEN 15,8,15
  40. 420 OPEN 5,8,5,"0:"+NA$+",P,W"
  41. 430 GOSUB 200:J=0
  42. 440 PRINT# 5,CHR$(PG(J,P));
  43. 450 J=J+1:IF J<I THEN 440
  44. 460 PRINT:PRINT "FILE= ";NA$,"BYTES=";J:CLOSE 5:CLOSE 15
  45. 470 RETURN
  46. 1000 OPEN15,8,15
  47. 1010 INPUT# 15,A$,B$,C$,D$
  48. 1020 PRINTA$,B$,C$,D$
  49.